home *** CD-ROM | disk | FTP | other *** search
/ Adventures with Oslo: Tools & Gadgets / Adventures with Oslo - Tools and Gadgets.ISO / mac / Screen / Sunglass / 00037.ls < prev    next >
Encoding:
Text File  |  1994-09-23  |  410 b   |  12 lines
  1. on exitFrame
  2.   global GHarddiskpath, gCDRDrive
  3.   if (the mouseH <> word 1 of field "mouseLoc") or (the mouseV <> word 2 of field "mouseLoc") then
  4.     set the timeoutScript to EMPTY
  5.     go("From picture", GHarddiskpath & "OsloMain")
  6.   else
  7.     set whichMovie to getAt(["beach", "bit", "dolpush", "knock"], random(4))
  8.     set the timeoutScript to EMPTY
  9.     go(1, gCDRDrive & "screen:" & whichMovie)
  10.   end if
  11. end
  12.